(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    185756,       4799]
NotebookOptionsPosition[    182859,       4699]
NotebookOutlinePosition[    183204,       4714]
CellTagsIndexPosition[    183161,       4711]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"FileNameSetter", "[", 
     RowBox[{
      RowBox[{"Dynamic", "@", "FileName"}], ",", "\"\<Save\>\""}], "]"}], ",", 
    RowBox[{"Dynamic", "@", "FileName"}]}], "}"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.4602886380186853`*^9, 3.4602886442999353`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TN", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AA", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "ALA", ",", "ARG", ",", "ASN", ",", "ASP", ",", "CYS", ",", "GLN", ",", 
      "GLU", ",", "GLY", ",", "HIS", ",", "ILE", ",", "LEU", ",", "LYS", ",", 
      "MET", ",", "PHE", ",", "PRO", ",", "SER", ",", "THR", ",", "TRP", ",", 
      "TYR", ",", "VAL", ",", "ASX", ",", "GLX"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"S1", " ", "=", " ", 
     RowBox[{"RandomChoice", "[", 
      RowBox[{"AA", ",", " ", "TN"}], "]"}]}], ";"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"S2", " ", "=", " ", 
     RowBox[{"RandomChoice", "[", 
      RowBox[{"AA", ",", " ", "TN"}], "]"}]}], ";"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S1", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<K\>\"", ",", "\"\<A\>\"", ",", "\"\<S\>\"", ",", "\"\<K\>\"", ",", 
       "\"\<P\>\"", ",", "\"\<P\>\"", ",", "\"\<N\>\"", ",", "\"\<W\>\"", 
       ",", "\"\<W\>\"", ",", "\"\<Y\>\"", ",", "\"\<I\>\"", ",", "\"\<P\>\"",
        ",", "\"\<D\>\"", ",", "\"\<Y\>\"", ",", "\"\<K\>\"", ",", 
       "\"\<W\>\"", ",", "\"\<S\>\"", ",", "\"\<W\>\"", ",", "\"\<Y\>\"", 
       ",", "\"\<E\>\"", ",", "\"\<K\>\"", ",", "\"\<Y\>\"", ",", "\"\<H\>\"",
        ",", "\"\<E\>\"", ",", "\"\<Y\>\"", ",", "\"\<B\>\"", ",", 
       "\"\<Q\>\"", ",", "\"\<Q\>\"", ",", "\"\<Y\>\"", ",", "\"\<K\>\"", 
       ",", "\"\<N\>\"", ",", "\"\<D\>\"", ",", "\"\<B\>\"", ",", "\"\<L\>\"",
        ",", "\"\<S\>\"", ",", "\"\<D\>\"", ",", "\"\<K\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<Q\>\"", ",", "\"\<P\>\"", ",", "\"\<C\>\"", 
       ",", "\"\<Y\>\"", ",", "\"\<I\>\"", ",", "\"\<N\>\"", ",", "\"\<W\>\"",
        ",", "\"\<N\>\"", ",", "\"\<V\>\"", ",", "\"\<W\>\"", ",", 
       "\"\<W\>\"", ",", "\"\<Y\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"S2", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<G\>\"", ",", "\"\<D\>\"", ",", "\"\<A\>\"", ",", "\"\<H\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<Z\>\"", ",", "\"\<C\>\"", ",", "\"\<W\>\"", 
       ",", "\"\<F\>\"", ",", "\"\<B\>\"", ",", "\"\<E\>\"", ",", "\"\<T\>\"",
        ",", "\"\<Q\>\"", ",", "\"\<L\>\"", ",", "\"\<B\>\"", ",", 
       "\"\<A\>\"", ",", "\"\<Y\>\"", ",", "\"\<P\>\"", ",", "\"\<I\>\"", 
       ",", "\"\<S\>\"", ",", "\"\<A\>\"", ",", "\"\<S\>\"", ",", "\"\<T\>\"",
        ",", "\"\<Z\>\"", ",", "\"\<L\>\"", ",", "\"\<N\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<I\>\"", ",", "\"\<S\>\"", ",", "\"\<P\>\"", 
       ",", "\"\<Y\>\"", ",", "\"\<Y\>\"", ",", "\"\<G\>\"", ",", "\"\<B\>\"",
        ",", "\"\<P\>\"", ",", "\"\<V\>\"", ",", "\"\<A\>\"", ",", 
       "\"\<Q\>\"", ",", "\"\<A\>\"", ",", "\"\<Q\>\"", ",", "\"\<B\>\"", 
       ",", "\"\<S\>\"", ",", "\"\<T\>\"", ",", "\"\<G\>\"", ",", "\"\<Z\>\"",
        ",", "\"\<A\>\"", ",", "\"\<K\>\"", ",", "\"\<M\>\"", ",", 
       "\"\<I\>\"", ",", "\"\<D\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"S1", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<G\>\"", ",", "\"\<V\>\"", ",", "\"\<Z\>\"", ",", "\"\<N\>\"", ",", 
       "\"\<S\>\"", ",", "\"\<D\>\"", ",", "\"\<W\>\"", ",", "\"\<A\>\"", 
       ",", "\"\<D\>\"", ",", "\"\<L\>\""}], "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"S2", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<P\>\"", ",", "\"\<H\>\"", ",", "\"\<Z\>\"", ",", "\"\<C\>\"", ",", 
       "\"\<N\>\"", ",", "\"\<F\>\"", ",", "\"\<T\>\"", ",", "\"\<K\>\"", 
       ",", "\"\<T\>\"", ",", "\"\<Q\>\""}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"S2", " ", "=", " ", 
   RowBox[{"Characters", "[", "\"\<HEAGAWGHEE\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S1", " ", "=", " ", 
    RowBox[{"Characters", "[", "\"\<PAWHEAE\>\"", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SingleLetterRule", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ALA", "\[Rule]", "\"\<A\>\""}], ",", " ", 
      RowBox[{"ARG", "\[Rule]", "\"\<R\>\""}], ",", " ", 
      RowBox[{"ASN", "\[Rule]", "\"\<N\>\""}], ",", " ", 
      RowBox[{"ASP", "\[Rule]", "\"\<D\>\""}], ",", " ", 
      RowBox[{"CYS", "\[Rule]", "\"\<C\>\""}], ",", " ", 
      RowBox[{"GLN", "\[Rule]", "\"\<Q\>\""}], ",", " ", 
      RowBox[{"GLU", "\[Rule]", "\"\<E\>\""}], ",", " ", 
      RowBox[{"GLY", "\[Rule]", "\"\<G\>\""}], ",", " ", 
      RowBox[{"HIS", "\[Rule]", "\"\<H\>\""}], ",", " ", 
      RowBox[{"ILE", "\[Rule]", "\"\<I\>\""}], ",", " ", 
      RowBox[{"LEU", "\[Rule]", "\"\<L\>\""}], ",", " ", 
      RowBox[{"LYS", "\[Rule]", "\"\<K\>\""}], ",", " ", 
      RowBox[{"MET", "\[Rule]", "\"\<M\>\""}], ",", " ", 
      RowBox[{"PHE", "\[Rule]", "\"\<F\>\""}], ",", " ", 
      RowBox[{"PRO", "\[Rule]", "\"\<P\>\""}], ",", " ", 
      RowBox[{"SER", "\[Rule]", "\"\<S\>\""}], ",", " ", 
      RowBox[{"THR", "\[Rule]", "\"\<T\>\""}], ",", " ", 
      RowBox[{"TRP", "\[Rule]", "\"\<W\>\""}], ",", " ", 
      RowBox[{"TYR", "\[Rule]", "\"\<Y\>\""}], ",", " ", 
      RowBox[{"VAL", "\[Rule]", "\"\<V\>\""}], ",", " ", 
      RowBox[{"ASX", "\[Rule]", "\"\<B\>\""}], ",", " ", 
      RowBox[{"GLX", "\[Rule]", "\"\<Z\>\""}], ",", " ", 
      RowBox[{"XAA", "\[Rule]", "\"\<X\>\""}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"SingleLetterRule", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "1"}], "]"}], "]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"AlignSingle", " ", "=", " ", 
     RowBox[{"Characters", "[", 
      RowBox[{"SequenceAlignment", "[", 
       RowBox[{
        RowBox[{"StringJoin", "[", 
         RowBox[{"S1", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", " ", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"S2", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", 
        RowBox[{"SimilarityRules", "\[Rule]", "\"\<BLOSUM62\>\""}], ",", " ", 
        RowBox[{"GapPenalty", "\[Rule]", 
         RowBox[{"-", "6"}]}], ",", " ", 
        RowBox[{"MergeDifferences", "\[Rule]", "False"}]}], "]"}], " ", 
      "]"}]}], ";"}], " ", "*)"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"GapPenalty", "\[Rule]", "2"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"AlignSingle", " ", "=", " ", 
    RowBox[{"Characters", "[", 
     RowBox[{"SequenceAlignment", "[", 
      RowBox[{
       RowBox[{"StringJoin", "[", 
        RowBox[{"S1", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", " ", 
       RowBox[{"StringJoin", "[", 
        RowBox[{"S2", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", 
       RowBox[{"SimilarityRules", "\[Rule]", "SimMat"}]}], "]"}], " ", 
     "]"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"AlignSingle", " ", "=", " ", 
  RowBox[{"Characters", "[", 
   RowBox[{"SequenceAlignment", "[", 
    RowBox[{
     RowBox[{"StringJoin", "[", 
      RowBox[{"S1", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", " ", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"S2", " ", "/.", " ", "SingleLetterRule"}], "]"}], ",", "  ", 
     RowBox[{"GapPenalty", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MergeDifferences", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"SimilarityRules", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           StyleBox["a_", "TI"], ",", " ", 
           StyleBox["a_", "TI"]}], "}"}], " ", "->", " ", "1"}], ",", " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           StyleBox["a_", "TI"], ",", " ", 
           StyleBox["b_", "TI"]}], "}"}], " ", "->", " ", 
         RowBox[{"-", "2"}]}]}], "}"}]}]}], "]"}], " ", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PadLists", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"l", " ", "=", " ", 
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{"Length", "[", "a", "]"}], ",", " ", 
          RowBox[{"Length", "[", "b", "]"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PadRight", "[", 
         RowBox[{"a", ",", " ", "l"}], "]"}], ",", " ", 
        RowBox[{"PadRight", "[", 
         RowBox[{"b", ",", " ", "l"}], "]"}]}], "}"}]}], "]"}], " ", "/.", 
    " ", 
    RowBox[{"0", "\[Rule]", "\"\<-\>\""}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PaddedAlign", " ", "=", " ", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{"u", ",", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Depth", "[", "u", "]"}], ">", "2"}], ",", 
         RowBox[{"PadLists", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"u", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", " ", "u"}], "]"}]}],
       "]"}], ",", "AlignSingle"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$RecursionLimit", "=", "10000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"WithGaps", "[", 
    RowBox[{"p_", ",", " ", "l_"}], "]"}], " ", ":=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Length", "[", "p", "]"}], "\[Equal]", "0"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"Length", "[", "l", "]"}], " ", "\[Equal]", "0"}]}], ",", 
     RowBox[{"{", "}"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{"If", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"First", "[", "p", "]"}], " ", "\[Equal]", " ", "\"\<-\>\""}],
        ",", " ", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", "}"}], "}"}], ",", " ", 
         RowBox[{"WithGaps", "[", 
          RowBox[{
           RowBox[{"Rest", "[", "p", "]"}], ",", " ", "l"}], "]"}]}], "]"}], 
       ",", " ", "\[IndentingNewLine]", "\t\t\t\t     ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\"\<seq\>\"", "/.", 
            RowBox[{"First", "[", "l", "]"}]}], ")"}], " ", "!=", " ", 
          RowBox[{"First", "[", "p", "]"}]}], ",", " ", 
         RowBox[{"Throw", "[", "sanity_fail", "]"}], ",", 
         "\[IndentingNewLine]", "\t\t\t\t\t", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"First", "[", "l", "]"}], "}"}], ",", 
           RowBox[{"WithGaps", "[", 
            RowBox[{
             RowBox[{"Rest", "[", "p", "]"}], ",", 
             RowBox[{"Rest", "[", "l", "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ForExport", "[", 
    RowBox[{"Name_", ",", " ", "S_"}], "]"}], ":=", " ", 
   RowBox[{
   "\"\<const \>\"", "~~", "Name", "~~", "\"\<:Array=\>\"", " ", "~~", " ", 
    RowBox[{"StringReplace", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ToString", "[", 
        RowBox[{"S", ",", "InputForm"}], "]"}], ")"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", " ", 
        RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<]\>\""}]}], "}"}]}], "]"}], 
    "~~", "\"\<;\>\"", "~~", "\"\<\\n\\n\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EX", " ", "=", " ", 
   RowBox[{
    RowBox[{"ForExport", "[", 
     RowBox[{
      RowBox[{"\"\<TestSeqA\>\"", "~~", 
       RowBox[{"ToString", "@", "TN"}]}], ",", " ", 
      RowBox[{"S1", "/.", "SingleLetterRule"}]}], "]"}], "~~", 
    RowBox[{"ForExport", "[", 
     RowBox[{
      RowBox[{"\"\<TestSeqB\>\"", "~~", 
       RowBox[{"ToString", "@", "TN"}]}], ",", " ", 
      RowBox[{"S2", "/.", "SingleLetterRule"}]}], "]"}], " ", "~~", " ", 
    RowBox[{"ForExport", "[", 
     RowBox[{
      RowBox[{"\"\<TestResA\>\"", "~~", 
       RowBox[{"ToString", "@", "TN"}]}], ",", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{"u", ",", " ", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Depth", "[", "u", "]"}], ">", "2"}], ",", 
             RowBox[{"u", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", "u"}], "]"}]}], "]"}], ",",
          "PaddedAlign"}], "]"}], "]"}]}], "]"}], " ", "~~", " ", 
    RowBox[{"ForExport", "[", 
     RowBox[{
      RowBox[{"\"\<TestResB\>\"", "~~", 
       RowBox[{"ToString", "@", "TN"}]}], ",", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{"u", ",", " ", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Depth", "[", "u", "]"}], ">", "2"}], ",", 
             RowBox[{"u", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", "u"}], "]"}]}], "]"}], ",",
          "PaddedAlign"}], "]"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", "EX", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
     "\"\<C:\\\\Documents and \
Settings\\\\Stansilav.Datskovski\\\\Desktop\\\\phi_psi\\\\alignTestCase\>\"", 
      "~~", 
      RowBox[{"ToString", "@", "TN"}], "~~", "\"\<.txt\>\""}], ",", " ", "EX",
      ",", " ", "\"\<Text\>\""}], "]"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4602864582374353`*^9, 3.4602864595968103`*^9}, {
   3.4602865489249353`*^9, 3.4602865496280603`*^9}, {3.4602866340968103`*^9, 
   3.4602866567686853`*^9}, {3.4602869046124353`*^9, 
   3.4602869095811853`*^9}, {3.4602872439718103`*^9, 
   3.4602873130186853`*^9}, {3.4602873626905603`*^9, 
   3.4602874026124353`*^9}, {3.4602874329249353`*^9, 
   3.4602874367374353`*^9}, {3.4602885982843103`*^9, 
   3.4602885991280603`*^9}, {3.4602887170655603`*^9, 
   3.4602887430499353`*^9}, {3.4602887739093103`*^9, 
   3.4602887876593103`*^9}, {3.4602888528155603`*^9, 
   3.4602888895030603`*^9}, {3.4602889224093103`*^9, 
   3.4602889522843103`*^9}, {3.4602889873155603`*^9, 
   3.4602890757999353`*^9}, {3.4602891165186853`*^9, 
   3.4602891591436853`*^9}, {3.4607250998031025`*^9, 
   3.4607251209279675`*^9}, {3.460725164599563*^9, 3.4607251674589195`*^9}, {
   3.4607253813794255`*^9, 3.460725413285472*^9}, {3.460725461957035*^9, 
   3.460725498519301*^9}, {3.4607257086273313`*^9, 3.460725752908298*^9}, {
   3.460728010050102*^9, 3.460728021815652*^9}, {3.4607280641747556`*^9, 
   3.4607281524866905`*^9}, 3.4607282829233556`*^9, {3.4608208292043357`*^9, 
   3.460820859035324*^9}, {3.4608209031645603`*^9, 3.4608209181347475`*^9}, {
   3.4608212251173396`*^9, 3.4608212569485197`*^9}, {3.4608212932801323`*^9, 
   3.460821294483373*^9}, {3.4608945597521753`*^9, 3.4608946326887417`*^9}, 
   3.4608946634383483`*^9, {3.460894752702831*^9, 3.4608947661245337`*^9}, {
   3.460894808780238*^9, 3.460894809702101*^9}, {3.460894942356653*^9, 
   3.4608950117776394`*^9}, {3.4608950970109234`*^9, 3.4608951222606*^9}, {
   3.460895162681958*^9, 3.4608951718693404`*^9}, {3.460896224480867*^9, 
   3.4608962568398275`*^9}, {3.46089630391735*^9, 3.4608963063860683`*^9}, {
   3.460896452040454*^9, 3.4608964601965995`*^9}, {3.4609017782691526`*^9, 
   3.460901817315528*^9}, {3.4609021242022247`*^9, 3.460902132467744*^9}, {
   3.4609031933291645`*^9, 3.46090319445415*^9}, {3.460908007626916*^9, 
   3.4609081015788383`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"H\"\>", ",", "\<\"E\"\>", ",", "\<\"A\"\>"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "\<\"P\"\>", "}"}], ",", 
     RowBox[{"{", "\<\"G\"\>", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"A\"\>", ",", "\<\"W\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "\<\"G\"\>", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"H\"\>", ",", "\<\"E\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "\<\"A\"\>", "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"E\"\>", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.4608947870617657`*^9, 3.460894810092721*^9}, {
   3.46089494374726*^9, 3.460894981653025*^9}, 3.460895012465131*^9, {
   3.460895115963806*^9, 3.4608951281667747`*^9}, {3.460895163853818*^9, 
   3.4608951725568314`*^9}, {3.460896226840212*^9, 3.4608962571679487`*^9}, 
   3.4608963069641857`*^9, {3.460896453118565*^9, 3.4608964606497188`*^9}, 
   3.4609018230342045`*^9, 3.460902132905238*^9, 3.4609031963760004`*^9, {
   3.4609080393140097`*^9, 3.4609081020788317`*^9}}],

Cell[BoxData["\<\"const TestSeqA10:Array=[\\\"P\\\", \\\"A\\\", \\\"W\\\", \\\
\"H\\\", \\\"E\\\", \\\"A\\\", \\\"E\\\"];\\n\\nconst TestSeqB10:Array=[\\\"H\
\\\", \\\"E\\\", \\\"A\\\", \\\"G\\\", \\\"A\\\", \\\"W\\\", \\\"G\\\", \\\"H\
\\\", \\\"E\\\", \\\"E\\\"];\\n\\nconst TestResA10:Array=[\\\"-\\\", \
\\\"-\\\", \\\"-\\\", \\\"P\\\", \\\"A\\\", \\\"W\\\", \\\"-\\\", \\\"H\\\", \
\\\"E\\\", \\\"A\\\", \\\"E\\\"];\\n\\nconst TestResB10:Array=[\\\"H\\\", \
\\\"E\\\", \\\"A\\\", \\\"G\\\", \\\"A\\\", \\\"W\\\", \\\"G\\\", \\\"H\\\", \
\\\"E\\\", \\\"-\\\", \\\"E\\\"];\\n\\n\"\>"], "Output",
 CellChangeTimes->{{3.4608947870617657`*^9, 3.460894810092721*^9}, {
   3.46089494374726*^9, 3.460894981653025*^9}, 3.460895012465131*^9, {
   3.460895115963806*^9, 3.4608951281667747`*^9}, {3.460895163853818*^9, 
   3.4608951725568314`*^9}, {3.460896226840212*^9, 3.4608962571679487`*^9}, 
   3.4608963069641857`*^9, {3.460896453118565*^9, 3.4608964606497188`*^9}, 
   3.4609018230342045`*^9, 3.460902132905238*^9, 3.4609031963760004`*^9, {
   3.4609080393140097`*^9, 3.4609081021725807`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Characters", "[", "\"\<HEAGAWGHEE\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Characters", "[", "\"\<PAWHEAE\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.4609032864998465`*^9, 3.460903292281023*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", ",", "\<\"E\"\>", ",", "\<\"A\"\>", ",", "\<\"G\"\>", 
   ",", "\<\"A\"\>", ",", "\<\"W\"\>", ",", "\<\"G\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"E\"\>", ",", "\<\"E\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.4609032934841323`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"P\"\>", ",", "\<\"A\"\>", ",", "\<\"W\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"E\"\>", ",", "\<\"A\"\>", ",", "\<\"E\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.4609032935622563`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"StringJoin", "[", "S1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"StringJoin", "[", "S2", "]"}]}], "Input",
 CellChangeTimes->{{3.4608940532939053`*^9, 3.4608940599812346`*^9}}],

Cell[BoxData["\<\"KASKPPNWWYIPDYKW\"\>"], "Output",
 CellChangeTimes->{3.460894060371849*^9, 3.4609020659842196`*^9}],

Cell[BoxData["\<\"GDAHRZCWFBETQLBA\"\>"], "Output",
 CellChangeTimes->{3.460894060371849*^9, 3.4609020660154696`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SequenceAlignment", "[", 
  RowBox[{"\"\<HEAGAWGHEE\>\"", ",", " ", "\"\<PAWHEAE\>\"", ",", 
   RowBox[{"SimilarityRules", "\[Rule]", "\"\<BLOSUM62\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4608944325668344`*^9, 3.4608944633474936`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"HEAG\"\>", ",", "\<\"P\"\>"}], "}"}], ",", "\<\"AW\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"G\"\>", ",", "\<\"\"\>"}], "}"}], ",", "\<\"HE\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"\"\>", ",", "\<\"A\"\>"}], "}"}], ",", "\<\"E\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4608944648787146`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Characters", "[", 
  RowBox[{"SequenceAlignment", "[", 
   RowBox[{
    RowBox[{"StringJoin", "[", "S1", "]"}], ",", " ", 
    RowBox[{"StringJoin", "[", "S2", "]"}], ",", 
    RowBox[{"SimilarityRules", "\[Rule]", "SimMat"}], ",", " ", 
    RowBox[{"GapPenalty", "\[Rule]", 
     RowBox[{"-", "2"}]}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.460728559905958*^9, 3.460728580077704*^9}, {
  3.460728709748749*^9, 3.460728759248432*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"A\"\>", ",", "\<\"S\"\>", 
      ",", "\<\"K\"\>", ",", "\<\"P\"\>", ",", "\<\"P\"\>", ",", "\<\"N\"\>", 
      ",", "\<\"W\"\>", ",", "\<\"W\"\>", ",", "\<\"Y\"\>", ",", "\<\"I\"\>", 
      ",", "\<\"P\"\>", ",", "\<\"D\"\>", ",", "\<\"Y\"\>", ",", "\<\"K\"\>", 
      ",", "\<\"W\"\>", ",", "\<\"S\"\>", ",", "\<\"W\"\>", ",", "\<\"Y\"\>", 
      ",", "\<\"E\"\>", ",", "\<\"K\"\>", ",", "\<\"Y\"\>", ",", "\<\"H\"\>", 
      ",", "\<\"E\"\>", ",", "\<\"Y\"\>", ",", "\<\"B\"\>", ",", "\<\"Q\"\>", 
      ",", "\<\"Q\"\>", ",", "\<\"Y\"\>", ",", "\<\"K\"\>", ",", "\<\"N\"\>", 
      ",", "\<\"D\"\>", ",", "\<\"B\"\>", ",", "\<\"L\"\>", ",", "\<\"S\"\>", 
      ",", "\<\"D\"\>", ",", "\<\"K\"\>", ",", "\<\"R\"\>", ",", "\<\"Q\"\>", 
      ",", "\<\"P\"\>", ",", "\<\"C\"\>", ",", "\<\"Y\"\>", ",", "\<\"I\"\>", 
      ",", "\<\"N\"\>", ",", "\<\"W\"\>", ",", "\<\"N\"\>", ",", "\<\"V\"\>", 
      ",", "\<\"W\"\>", ",", "\<\"W\"\>", ",", "\<\"Y\"\>"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"D\"\>", ",", "\<\"A\"\>", 
      ",", "\<\"H\"\>", ",", "\<\"R\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", 
      ",", "\<\"W\"\>", ",", "\<\"F\"\>", ",", "\<\"B\"\>", ",", "\<\"E\"\>", 
      ",", "\<\"T\"\>", ",", "\<\"Q\"\>", ",", "\<\"L\"\>", ",", "\<\"B\"\>", 
      ",", "\<\"A\"\>", ",", "\<\"Y\"\>", ",", "\<\"P\"\>", ",", "\<\"I\"\>", 
      ",", "\<\"S\"\>", ",", "\<\"A\"\>", ",", "\<\"S\"\>", ",", "\<\"T\"\>", 
      ",", "\<\"Z\"\>", ",", "\<\"L\"\>", ",", "\<\"N\"\>", ",", "\<\"R\"\>", 
      ",", "\<\"I\"\>", ",", "\<\"S\"\>", ",", "\<\"P\"\>", ",", "\<\"Y\"\>", 
      ",", "\<\"Y\"\>", ",", "\<\"G\"\>", ",", "\<\"B\"\>", ",", "\<\"P\"\>", 
      ",", "\<\"V\"\>", ",", "\<\"A\"\>", ",", "\<\"Q\"\>", ",", "\<\"A\"\>", 
      ",", "\<\"Q\"\>", ",", "\<\"B\"\>", ",", "\<\"S\"\>", ",", "\<\"T\"\>", 
      ",", "\<\"G\"\>", ",", "\<\"Z\"\>", ",", "\<\"A\"\>", ",", "\<\"K\"\>", 
      ",", "\<\"M\"\>", ",", "\<\"I\"\>", ",", "\<\"D\"\>"}], "}"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.4607285493904004`*^9, 3.460728580390202*^9}, {
  3.4607287154362125`*^9, 3.46072875962343*^9}, {3.4607293233698215`*^9, 
  3.460729347994664*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Characters", "[", 
  RowBox[{"SequenceAlignment", "[", 
   RowBox[{
    RowBox[{"StringJoin", "[", "S1", "]"}], ",", " ", 
    RowBox[{"StringJoin", "[", "S2", "]"}], ",", 
    RowBox[{"SimilarityRules", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["a_", "TI"], ",", " ", 
          StyleBox["a_", "TI"]}], "}"}], " ", "->", " ", "1"}], ",", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          StyleBox["a_", "TI"], ",", " ", 
          StyleBox["b_", "TI"]}], "}"}], " ", "->", " ", 
        RowBox[{"-", "1"}]}]}], "}"}]}]}], "]"}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.4607289592627773`*^9, 3.460728984387616*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "\<\"K\"\>", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"G\"\>", ",", "\<\"D\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"A\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"S\"\>", ",", "\<\"K\"\>", ",", "\<\"P\"\>", 
       ",", "\<\"P\"\>", ",", "\<\"N\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"H\"\>", ",", "\<\"R\"\>", ",", "\<\"Z\"\>", 
       ",", "\<\"C\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"W\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"W\"\>", ",", "\<\"Y\"\>", ",", "\<\"I\"\>", 
       ",", "\<\"P\"\>", ",", "\<\"D\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"F\"\>", ",", "\<\"B\"\>", ",", "\<\"E\"\>", 
       ",", "\<\"T\"\>", ",", "\<\"Q\"\>", ",", "\<\"L\"\>", ",", "\<\"B\"\>",
        ",", "\<\"A\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"Y\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"K\"\>", ",", "\<\"W\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"P\"\>", ",", "\<\"I\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"S\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"W\"\>", ",", "\<\"Y\"\>", ",", "\<\"E\"\>", 
       ",", "\<\"K\"\>", ",", "\<\"Y\"\>", ",", "\<\"H\"\>", ",", "\<\"E\"\>",
        ",", "\<\"Y\"\>", ",", "\<\"B\"\>", ",", "\<\"Q\"\>", 
       ",", "\<\"Q\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"A\"\>", ",", "\<\"S\"\>", ",", "\<\"T\"\>", 
       ",", "\<\"Z\"\>", ",", "\<\"L\"\>", ",", "\<\"N\"\>", ",", "\<\"R\"\>",
        ",", "\<\"I\"\>", ",", "\<\"S\"\>", ",", "\<\"P\"\>"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", "\<\"Y\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"K\"\>", ",", "\<\"N\"\>", ",", "\<\"D\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Y\"\>", ",", "\<\"G\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"B\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"L\"\>", ",", "\<\"S\"\>", ",", "\<\"D\"\>", 
       ",", "\<\"K\"\>", ",", "\<\"R\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"P\"\>", ",", "\<\"V\"\>", ",", "\<\"A\"\>", 
       ",", "\<\"Q\"\>", ",", "\<\"A\"\>"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", "\<\"Q\"\>", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"P\"\>", ",", "\<\"C\"\>", ",", "\<\"Y\"\>", 
       ",", "\<\"I\"\>", ",", "\<\"N\"\>", ",", "\<\"W\"\>", ",", "\<\"N\"\>",
        ",", "\<\"V\"\>", ",", "\<\"W\"\>", ",", "\<\"W\"\>", 
       ",", "\<\"Y\"\>"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"B\"\>", ",", "\<\"S\"\>", ",", "\<\"T\"\>", 
       ",", "\<\"G\"\>", ",", "\<\"Z\"\>", ",", "\<\"A\"\>", ",", "\<\"K\"\>",
        ",", "\<\"M\"\>", ",", "\<\"I\"\>", ",", "\<\"D\"\>"}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.460728959731524*^9, 3.4607289887313385`*^9}, 
   3.4607293497759027`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSim", "[", 
  RowBox[{"\"\<A\>\"", ",", "\"\<B\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.460729144636591*^9, 3.4607291489021883`*^9}}],

Cell[BoxData["\<\"-2\"\>"], "Output",
 CellChangeTimes->{3.4607291495584345`*^9, 3.460729308323043*^9, 
  3.460729353229006*^9, 3.460730286723031*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSim", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.460729358369598*^9, 3.460729359244592*^9}}],

Cell[BoxData["\<\"1\"\>"], "Output",
 CellChangeTimes->{3.4607293595414653`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       StyleBox["a_", "TI"], ",", " ", 
       StyleBox["a_", "TI"]}], "}"}], " ", "->", " ", "1"}], ",", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       StyleBox["a_", "TI"], ",", " ", 
       StyleBox["b_", "TI"]}], "}"}], " ", "->", " ", 
     RowBox[{"-", "1"}]}]}], "}"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.4607304936123323`*^9, 3.4607304952841964`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullDefinition", "[", "SequenceAlignment", "]"}]], "Input",
 CellChangeTimes->{{3.460728780888919*^9, 3.460728784310772*^9}, {
   3.460728816138693*^9, 3.460728817185561*^9}, 3.460728890200719*^9}],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Attributes", "[", "SequenceAlignment", "]"}], "=", 
         RowBox[{"{", "Protected", "}"}]}]},
       {" "},
       {GridBox[{
          {
           RowBox[{
            RowBox[{"Options", "[", "SequenceAlignment", "]"}], "=", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"GapPenalty", "\[Rule]", "0"}], ",", 
              RowBox[{"IgnoreCase", "\[Rule]", "False"}], ",", 
              RowBox[{"MergeDifferences", "\[Rule]", "True"}], ",", 
              RowBox[{"Method", "\[Rule]", "\<\"Global\"\>"}], ",", 
              RowBox[{"SimilarityRules", "\[Rule]", "Automatic"}]}], "}"}]}]}
         },
         BaselinePosition->{Baseline, {1, 1}},
         GridBoxAlignment->{
          "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
           "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
         GridBoxItemSize->{"Columns" -> {{
              Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
           "RowsIndexed" -> {}}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  FullDefinition[SequenceAlignment],
  Editable->False]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.46072878462327*^9, 3.460728817388685*^9, 
  3.460728890200719*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"const", " ", 
      RowBox[{"TestResA10", ":", "Array"}]}], "=", 
     RowBox[{"[", 
      RowBox[{
      "\"\<K\>\"", ",", " ", "\"\<-\>\"", ",", " ", "\"\<A\>\"", ",", " ", 
       "\"\<S\>\"", ",", " ", "\"\<K\>\"", ",", " ", "\"\<P\>\"", ",", " ", 
       "\"\<P\>\"", ",", " ", "\"\<N\>\"", ",", " ", "\"\<W\>\"", ",", " ", 
       "\"\<W\>\"", ",", " ", "\"\<Y\>\"", ",", " ", "\"\<I\>\"", ",", " ", 
       "\"\<P\>\"", ",", " ", "\"\<D\>\"", ",", " ", "\"\<-\>\"", ",", " ", 
       "\"\<-\>\"", ",", " ", "\"\<-\>\"", ",", " ", "\"\<Y\>\"", ",", " ", 
       "\"\<K\>\"", ",", " ", "\"\<W\>\"", ",", " ", "\"\<S\>\"", ",", " ", 
       "\"\<W\>\"", ",", " ", "\"\<Y\>\"", ",", " ", "\"\<E\>\"", ",", " ", 
       "\"\<K\>\"", ",", " ", "\"\<Y\>\"", ",", " ", "\"\<H\>\"", ",", " ", 
       "\"\<E\>\"", ",", " ", "\"\<Y\>\"", ",", " ", "\"\<B\>\"", ",", " ", 
       "\"\<Q\>\"", ",", " ", "\"\<Q\>\"", ",", " ", "\"\<Y\>\"", ",", " ", 
       "\"\<K\>\"", ",", " ", "\"\<N\>\"", ",", " ", "\"\<D\>\"", ",", " ", 
       "\"\<B\>\"", ",", " ", "\"\<L\>\"", ",", " ", "\"\<S\>\"", ",", " ", 
       "\"\<D\>\"", ",", " ", "\"\<K\>\"", ",", " ", "\"\<R\>\"", ",", " ", 
       "\"\<Q\>\"", ",", " ", "\"\<P\>\"", ",", " ", "\"\<C\>\"", ",", " ", 
       "\"\<Y\>\"", ",", " ", "\"\<I\>\"", ",", " ", "\"\<N\>\"", ",", " ", 
       "\"\<W\>\"", ",", " ", "\"\<N\>\"", ",", " ", "\"\<V\>\"", ",", " ", 
       "\"\<W\>\"", ",", " ", "\"\<W\>\"", ",", " ", "\"\<Y\>\""}], "]"}]}], 
    ";"}], " ", "*)"}], "\n", "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"const", " ", 
      RowBox[{"TestResB10", ":", "Array"}]}], "=", 
     RowBox[{"[", 
      RowBox[{
      "\"\<G\>\"", ",", " ", "\"\<D\>\"", ",", " ", "\"\<A\>\"", ",", " ", 
       "\"\<H\>\"", ",", " ", "\"\<R\>\"", ",", " ", "\"\<Z\>\"", ",", " ", 
       "\"\<C\>\"", ",", " ", "\"\<-\>\"", ",", " ", "\"\<W\>\"", ",", " ", 
       "\"\<F\>\"", ",", " ", "\"\<B\>\"", ",", " ", "\"\<E\>\"", ",", " ", 
       "\"\<T\>\"", ",", " ", "\"\<Q\>\"", ",", " ", "\"\<L\>\"", ",", " ", 
       "\"\<B\>\"", ",", " ", "\"\<A\>\"", ",", " ", "\"\<Y\>\"", ",", " ", 
       "\"\<P\>\"", ",", " ", "\"\<I\>\"", ",", " ", "\"\<S\>\"", ",", " ", 
       "\"\<A\>\"", ",", " ", "\"\<S\>\"", ",", " ", "\"\<T\>\"", ",", " ", 
       "\"\<Z\>\"", ",", " ", "\"\<L\>\"", ",", " ", "\"\<N\>\"", ",", " ", 
       "\"\<R\>\"", ",", " ", "\"\<I\>\"", ",", " ", "\"\<S\>\"", ",", " ", 
       "\"\<P\>\"", ",", " ", "\"\<Y\>\"", ",", " ", "\"\<Y\>\"", ",", " ", 
       "\"\<G\>\"", ",", " ", "\"\<B\>\"", ",", " ", "\"\<P\>\"", ",", " ", 
       "\"\<V\>\"", ",", " ", "\"\<A\>\"", ",", " ", "\"\<Q\>\"", ",", " ", 
       "\"\<A\>\"", ",", " ", "\"\<-\>\"", ",", " ", "\"\<-\>\"", ",", " ", 
       "\"\<Q\>\"", ",", " ", "\"\<B\>\"", ",", " ", "\"\<S\>\"", ",", " ", 
       "\"\<T\>\"", ",", " ", "\"\<G\>\"", ",", " ", "\"\<Z\>\"", ",", " ", 
       "\"\<A\>\"", ",", " ", "\"\<K\>\"", ",", " ", "\"\<M\>\"", ",", " ", 
       "\"\<I\>\"", ",", " ", "\"\<D\>\"", ",", " ", "\"\<-\>\""}], "]"}]}], 
    ";"}], " ", "*)"}], "\n"}]], "Input",
 CellChangeTimes->{{3.4607281175806637`*^9, 3.460728124939992*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Matrix", " ", "=", " ", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"ReadList", "[", 
     RowBox[{
     "\"\<C:\\\\Documents and Settings\\\\Stansilav.Datskovski\\\\My \
Documents\\\\Flex Builder 3\\\\np\\\\src\\\\data\\\\BLOSUM62.txt\>\"", ",", 
      " ", "Word", ",", " ", 
      RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", "\"\<#\>\""}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4607256729869347`*^9, 3.460725677721279*^9}, {
  3.4607258143922796`*^9, 3.4607258943448925`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"A\"\>", ",", "\<\"R\"\>", ",", "\<\"N\"\>", ",", "\<\"D\"\>",
      ",", "\<\"C\"\>", ",", "\<\"Q\"\>", ",", "\<\"E\"\>", ",", "\<\"G\"\>", 
     ",", "\<\"H\"\>", ",", "\<\"I\"\>", ",", "\<\"L\"\>", ",", "\<\"K\"\>", 
     ",", "\<\"M\"\>", ",", "\<\"F\"\>", ",", "\<\"P\"\>", ",", "\<\"S\"\>", 
     ",", "\<\"T\"\>", ",", "\<\"W\"\>", ",", "\<\"Y\"\>", ",", "\<\"V\"\>", 
     ",", "\<\"B\"\>", ",", "\<\"Z\"\>", ",", "\<\"X\"\>", ",", "\<\"*\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"A\"\>", ",", "\<\"4\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"R\"\>", ",", "\<\"-1\"\>", ",", "\<\"5\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"1\"\>",
      ",", "\<\"0\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"N\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"6\"\>", ",", "\<\"1\"\>", ",", "\<\"-3\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>",
      ",", "\<\"-4\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"D\"\>", ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"6\"\>", ",", "\<\"-3\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-4\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>",
      ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"9\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-4\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Q\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", ",", "\<\"5\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"3\"\>", ",", "\<\"-1\"\>",
      ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"E\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"2\"\>", ",", "\<\"-4\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"5\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-3\"\>", ",", "\<\"1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"4\"\>", ",", "\<\"-1\"\>",
      ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"G\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"6\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"H\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"0\"\>",
      ",", "\<\"0\"\>", ",", "\<\"-2\"\>", ",", "\<\"8\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"-3\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"I\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"4\"\>", ",", "\<\"2\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"1\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"L\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-4\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"2\"\>", ",", "\<\"4\"\>", ",", "\<\"-2\"\>",
      ",", "\<\"2\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"1\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"K\"\>", ",", "\<\"-1\"\>", ",", "\<\"2\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"1\"\>",
      ",", "\<\"1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"5\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>",
      ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"M\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"2\"\>", ",", "\<\"-1\"\>",
      ",", "\<\"5\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"F\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"0\"\>", ",", "\<\"6\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"3\"\>",
      ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"P\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"7\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"S\"\>", ",", "\<\"1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>",
      ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>",
      ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"T\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"1\"\>", ",", "\<\"5\"\>", ",", "\<\"-2\"\>",
      ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"W\"\>", ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"11\"\>", ",", "\<\"2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Y\"\>", ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"2\"\>", ",", "\<\"7\"\>", ",", "\<\"-1\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"V\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-2\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"3\"\>", ",", "\<\"1\"\>", ",", "\<\"-2\"\>",
      ",", "\<\"1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"4\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"B\"\>", ",", "\<\"-2\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"3\"\>", ",", "\<\"4\"\>", ",", "\<\"-3\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"1\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-4\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-4\"\>", ",", "\<\"-3\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"4\"\>", ",", "\<\"1\"\>", ",", "\<\"-1\"\>",
      ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"-3\"\>", ",", "\<\"3\"\>", 
     ",", "\<\"4\"\>", ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"-3\"\>",
      ",", "\<\"-3\"\>", ",", "\<\"1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-3\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-3\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"4\"\>", ",", "\<\"-1\"\>",
      ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"X\"\>", ",", "\<\"0\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-2\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-2\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"-2\"\>",
      ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", 
     ",", "\<\"-1\"\>", ",", "\<\"-1\"\>", ",", "\<\"-4\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"*\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", ",", "\<\"-4\"\>", 
     ",", "\<\"1\"\>"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4607256781587763`*^9, {3.4607258228297253`*^9, 3.4607258335484066`*^9}, {
   3.4607258775637503`*^9, 3.46072589631363*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Alphabet", " ", "=", " ", 
   RowBox[{
    RowBox[{"First", "[", "Matrix", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<*\>\"", " ", "\[Rule]", " ", "\"\<\>\""}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", "Alphabet"}], "Input",
 CellChangeTimes->{{3.4607259476570516`*^9, 3.4607259550632544`*^9}, {
  3.4607282369080253`*^9, 3.4607282423298655`*^9}, {3.460729196886256*^9, 
  3.4607291986049953`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"A\"\>", ",", "\<\"R\"\>", ",", "\<\"N\"\>", ",", "\<\"D\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"Q\"\>", ",", "\<\"E\"\>", ",", "\<\"G\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"I\"\>", ",", "\<\"L\"\>", ",", "\<\"K\"\>", 
   ",", "\<\"M\"\>", ",", "\<\"F\"\>", ",", "\<\"P\"\>", ",", "\<\"S\"\>", 
   ",", "\<\"T\"\>", ",", "\<\"W\"\>", ",", "\<\"Y\"\>", ",", "\<\"V\"\>", 
   ",", "\<\"B\"\>", ",", "\<\"Z\"\>", ",", "\<\"X\"\>", ",", "\<\"\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.460729198886244*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Body", " ", "=", " ", 
   RowBox[{"Rest", "[", "Matrix", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4607259133447714`*^9, 3.46072593071966*^9}, {
  3.460726068203155*^9, 3.4607260705156403`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Rest", "[", "#", "]"}], "&"}], "/@", "Body"}], "]"}], " ", 
  "\[Equal]", " ", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Rest", "[", "#", "]"}], "&"}], "/@", "Body"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Rest", "[", "#", "]"}], "&"}], "/@", "Body"}], "]"}]}], "Input",
 CellChangeTimes->{{3.4607274359756513`*^9, 3.4607274545849075`*^9}, {
  3.460727555599886*^9, 3.4607275675998087`*^9}, {3.4607276098495383`*^9, 
  3.460727629865035*^9}, {3.460727742583064*^9, 3.4607277430674357`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.46072776348918*^9, 3.4607282507360616`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"4\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\
\"-1\"\>", "\<\"-1\"\>", "\<\"0\"\>", "\<\"-2\"\>", "\<\"-1\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", \
"\<\"1\"\>", "\<\"0\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"0\"\>", \
"\<\"-2\"\>", "\<\"-1\"\>", "\<\"0\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"5\"\>", "\<\"0\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\
\"1\"\>", "\<\"0\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-3\"\>", "\<\"-2\"\>", \
"\<\"2\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-1\"\>", \
"\<\"-1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-1\"\>", \
"\<\"0\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"0\"\>", "\<\"6\"\>", "\<\"1\"\>", "\<\"-3\"\>", \
"\<\"0\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\"1\"\>", "\<\"-3\"\>", \
"\<\"-3\"\>", "\<\"0\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"1\"\
\>", "\<\"0\"\>", "\<\"-4\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"3\"\>", \
"\<\"0\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"-2\"\>", "\<\"1\"\>", "\<\"6\"\>", "\<\"-3\"\>", "\<\
\"0\"\>", "\<\"2\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-3\"\>", \
"\<\"-4\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", \
"\<\"0\"\>", "\<\"-1\"\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"4\"\
\>", "\<\"1\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"0\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"9\"\>", "\<\
\"-3\"\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", \
"\<\"-1\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-1\
\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-3\"\>", \
"\<\"-3\"\>", "\<\"-2\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"1\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"5\"\>", "\<\"2\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"1\"\>", "\<\"0\"\>", "\<\"-3\"\>", "\<\"-1\"\>", \
"\<\"0\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"0\"\
\>", "\<\"3\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\"2\"\>", "\<\"-4\"\>", \
"\<\"2\"\>", "\<\"5\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"-3\"\>", "\<\"1\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"0\"\
\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"1\"\>", "\<\
\"4\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"0\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\
\"-2\"\>", "\<\"-2\"\>", "\<\"6\"\>", "\<\"-2\"\>", "\<\"-4\"\>", \
"\<\"-4\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-2\"\>", \
"\<\"0\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-3\"\>", \
"\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"0\"\>", "\<\"1\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\
\"0\"\>", "\<\"0\"\>", "\<\"-2\"\>", "\<\"8\"\>", "\<\"-3\"\>", "\<\"-3\"\>", \
"\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-2\
\"\>", "\<\"-2\"\>", "\<\"2\"\>", "\<\"-3\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\
\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\
\<\"-3\"\>", "\<\"-3\"\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"4\"\>", \
"\<\"2\"\>", "\<\"-3\"\>", "\<\"1\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"3\"\>", \
"\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-4\"\>", "\<\"-1\"\>", "\
\<\"-2\"\>", "\<\"-3\"\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"2\"\>", \
"\<\"4\"\>", "\<\"-2\"\>", "\<\"2\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"1\"\>", \
"\<\"-4\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"2\"\>", "\<\"0\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\
\"1\"\>", "\<\"1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"5\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"0\"\
\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\
\"1\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\
\<\"0\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"1\"\>", \
"\<\"2\"\>", "\<\"-1\"\>", "\<\"5\"\>", "\<\"0\"\>", "\<\"-2\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"1\"\>", \
"\<\"-3\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\
\<\"-3\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"0\"\>", \
"\<\"0\"\>", "\<\"-3\"\>", "\<\"0\"\>", "\<\"6\"\>", "\<\"-4\"\>", \
"\<\"-2\"\>", "\<\"-2\"\>", "\<\"1\"\>", "\<\"3\"\>", "\<\"-1\"\>", "\<\"-3\"\
\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\
\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-3\"\>", \
"\<\"-3\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-4\"\>", "\<\"7\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\
\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-4\"\>"},
     {"\<\"1\"\>", "\<\"-1\"\>", "\<\"1\"\>", "\<\"0\"\>", "\<\"-1\"\>", \
"\<\"0\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\"-1\"\>", "\<\"-2\"\>", \
"\<\"-2\"\>", "\<\"0\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"4\"\
\>", "\<\"1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"0\"\>", \
"\<\"0\"\>", "\<\"0\"\>", "\<\"-4\"\>"},
     {"\<\"0\"\>", "\<\"-1\"\>", "\<\"0\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\
\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-1\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-1\"\>", \
"\<\"1\"\>", "\<\"5\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"0\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"0\"\>", "\<\"-4\"\>"},
     {"\<\"-3\"\>", "\<\"-3\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-2\"\>", "\
\<\"-2\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"1\"\>", "\<\"-4\"\>", \
"\<\"-3\"\>", "\<\"-2\"\>", "\<\"11\"\>", "\<\"2\"\>", "\<\"-3\"\>", \
"\<\"-4\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\
\<\"-1\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"2\"\>", "\<\"-1\"\>", "\<\"-1\"\
\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"3\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\
\"-2\"\>", "\<\"2\"\>", "\<\"7\"\>", "\<\"-1\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"0\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-1\"\>", \
"\<\"-2\"\>", "\<\"-2\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"3\"\>", "\<\"1\"\
\>", "\<\"-2\"\>", "\<\"1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\
\"0\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"4\"\>", "\<\"-3\"\>", \
"\<\"-2\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-2\"\>", "\<\"-1\"\>", "\<\"3\"\>", "\<\"4\"\>", "\<\"-3\"\>", "\<\
\"0\"\>", "\<\"1\"\>", "\<\"-1\"\>", "\<\"0\"\>", "\<\"-3\"\>", "\<\"-4\"\>", \
"\<\"0\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-1\"\
\>", "\<\"-4\"\>", "\<\"-3\"\>", "\<\"-3\"\>", "\<\"4\"\>", "\<\"1\"\>", \
"\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-1\"\>", "\<\"0\"\>", "\<\"0\"\>", "\<\"1\"\>", "\<\"-3\"\>", \
"\<\"3\"\>", "\<\"4\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\<\"-3\"\>", \
"\<\"-3\"\>", "\<\"1\"\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-1\"\>", "\<\"0\"\
\>", "\<\"-1\"\>", "\<\"-3\"\>", "\<\"-2\"\>", "\<\"-2\"\>", "\<\"1\"\>", "\<\
\"4\"\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"0\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", \
"\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\
\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-2\"\>", "\<\"0\"\>", "\
\<\"0\"\>", "\<\"-2\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\>", "\<\"-1\"\
\>", "\<\"-1\"\>", "\<\"-4\"\>"},
     {"\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\
\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", \
"\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\
\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", "\<\"-4\"\>", \
"\<\"-4\"\>", "\<\"-4\"\>", "\<\"1\"\>"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.46072776348918*^9, 3.4607282509079356`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SimMatrix", " ", "=", " ", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"First", "@", "#"}], " ", "/.", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<*\>\"", " ", "\[Rule]", " ", "\"\<\>\""}], "}"}]}], 
        ")"}], "->", 
       RowBox[{"MapThread", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#2", "\[Rule]", "#1"}], "&"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Rest", "@", "#"}], ",", " ", "Alphabet"}], "}"}]}], 
        "]"}]}], "&"}], ",", " ", "Body"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "SimMatrix"}], "Input",
 CellChangeTimes->{{3.460726071781257*^9, 3.460726096937346*^9}, {
   3.460726127780899*^9, 3.460726213905348*^9}, {3.460727191977213*^9, 
   3.460727248804974*^9}, 3.46072846345345*^9, {3.4607291893706794`*^9, 
   3.4607291896988025`*^9}, {3.4607292396203575`*^9, 3.460729279854475*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"A\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"R\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"N\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"6\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"6\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"C\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"9\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"Q\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"E\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"G\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"6\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"8\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"I\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"L\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"K\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"M\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"F\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"6\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"P\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"7\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"T\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"5\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"11\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"Y\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"7\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"V\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"B\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"Z\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"3\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-3\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"4\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"X\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"0\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-2\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-1\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"-4\"\>"}]}], "}"}]}], ",", 
   RowBox[{"\<\"\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"R\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"N\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"D\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"C\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Q\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"E\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"G\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"H\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"I\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"L\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"K\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"M\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"F\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"P\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"S\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"T\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"W\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Y\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"V\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"B\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"Z\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"X\"\>", "\[Rule]", "\<\"-4\"\>"}], ",", 
      RowBox[{"\<\"\"\>", "\[Rule]", "\<\"1\"\>"}]}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.460729193511278*^9, {3.4607292300891685`*^9, 3.4607292808075943`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SimMat", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"With", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"l", " ", "=", " ", 
           RowBox[{
            RowBox[{"First", "@", "#"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{"\"\<*\>\"", " ", "\[Rule]", " ", "\"\<\>\""}], 
             "}"}]}]}], "}"}], ",", 
         RowBox[{"MapThread", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"l", ",", " ", "#2"}], "}"}], "\[Rule]", "#1"}], "&"}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Rest", "@", "#"}], ",", " ", "Alphabet"}], "}"}]}], 
          "]"}]}], "]"}], "&"}], " ", "/@", " ", "Body"}], ",", " ", "2"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4607278192231984`*^9, 3.460727825660657*^9}, {
   3.4607278560979624`*^9, 3.4607279954564457`*^9}, 3.460728469625286*^9}],

Cell[CellGroupData[{

Cell[BoxData["SimMat"], "Input",
 CellChangeTimes->{{3.4607281796740165`*^9, 3.4607281809083834`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"C\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"G\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"X\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"A\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"R\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"6\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"G\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"N\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"6\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"D\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], "\[Rule]", "\<\"9\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"C\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Q\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"E\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"G\"\>"}], "}"}], "\[Rule]", "\<\"6\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"G\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"8\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"Y\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"H\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"I\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"L\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"K\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"M\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"6\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"W\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"Y\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"F\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"P\"\>"}], "}"}], "\[Rule]", "\<\"7\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"P\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"G\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"W\"\>"}], "}"}], "\[Rule]", "\<\"-3\"\>"}]
    , ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"X\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"S\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"5\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"X\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"T\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"11\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"Y\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"W\"\>"}], "}"}], "\[Rule]", "\<\"2\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"Y\"\>"}], "}"}], "\[Rule]", "\<\"7\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Y\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"S\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"V\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"T\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-4\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"B\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"A\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"3\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"-1\"\>"}]
    , ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-3\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"Z\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"R\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"N\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"D\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"C\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"Q\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"E\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"G\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"H\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"I\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"L\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"K\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"M\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"F\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"P\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"0\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"W\"\>"}], "}"}], 
    "\[Rule]", "\<\"-2\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"Y\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"V\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"B\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"Z\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"X\"\>"}], "}"}], 
    "\[Rule]", "\<\"-1\"\>"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"X\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"A\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"R\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"N\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"D\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"C\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"Q\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"E\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"G\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"H\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"I\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"L\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"K\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"M\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"F\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"P\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"S\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"T\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"W\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"Y\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"V\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"B\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"Z\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"X\"\>"}], "}"}], "\[Rule]", "\<\"-4\"\>"}],
    ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"\"\>", ",", "\<\"\"\>"}], "}"}], "\[Rule]", "\<\"1\"\>"}]}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.4607281812833815`*^9, 3.4607282584547625`*^9, {3.4607284291880445`*^9, 
   3.460728437484866*^9}, 3.4607284718752713`*^9, 3.4607293355884933`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetSim", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], " ", ":=", " ", 
   RowBox[{"b", "/.", 
    RowBox[{"(", 
     RowBox[{"a", "/.", "SimMatrix"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4607272517268305`*^9, 3.460727307867096*^9}, {
  3.460727369538576*^9, 3.4607273706323195`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSim", "[", 
  RowBox[{"\"\<C\>\"", ",", " ", "\"\<N\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.4607273096795845`*^9, 3.4607273482730875`*^9}, {
  3.4607273843041067`*^9, 3.4607274281632013`*^9}, {3.4607275098658032`*^9, 
  3.460727518381374*^9}, {3.4607276393493495`*^9, 3.460727639708722*^9}, {
  3.4607292939012604`*^9, 3.460729296198121*^9}}],

Cell[BoxData["\<\"-3\"\>"], "Output",
 CellChangeTimes->{
  3.460727315413923*^9, {3.4607273486012106`*^9, 3.4607274284756994`*^9}, {
   3.4607275117095413`*^9, 3.4607275187094965`*^9}, 3.4607276405055923`*^9, 
   3.4607291593864965`*^9, {3.4607292910575285`*^9, 3.460729296573118*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSim", "[", 
  RowBox[{"\"\<V\>\"", ",", " ", "\"\<V\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.4607338821843953`*^9, 3.460733883262513*^9}}],

Cell[BoxData["\<\"4\"\>"], "Output",
 CellChangeTimes->{3.4607338835906363`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SequenceAlignment", "[", 
  RowBox[{
   RowBox[{"StringJoin", "[", "S1", "]"}], ",", " ", 
   RowBox[{"StringJoin", "[", "S2", "]"}], ",", 
   RowBox[{"SimilarityRules", "\[Rule]", "\"\<BLOSUM62\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.460731699120242*^9, 3.46073173074504*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"K\"\>", ",", "\<\"GD\"\>"}], "}"}], ",", "\<\"A\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"SKPPN\"\>", ",", "\<\"HRZC\"\>"}], "}"}], ",", "\<\"W\"\>", 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"WYIPD\"\>", ",", "\<\"FBETQLBA\"\>"}], "}"}], 
   ",", "\<\"Y\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"KW\"\>", ",", "\<\"PI\"\>"}], "}"}], ",", "\<\"S\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"WYEKYHEYBQQ\"\>", ",", "\<\"ASTZLNRISPY\"\>"}], "}"}], 
   ",", "\<\"Y\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"KNDBLSDKR\"\>", ",", "\<\"GBPVAQA\"\>"}], "}"}], 
   ",", "\<\"Q\"\>", ",", 
   RowBox[{"{", 
    RowBox[{"\<\"PCYINWNVWWY\"\>", ",", "\<\"BSTGZAKMID\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4607316996514883`*^9, 3.460731731151287*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", "S1", "]"}]], "Input"],

Cell[BoxData["\<\"KASKPPNWWYIPDYKWSWYEKYHEYBQQYKNDBLSDKRQPCYINWNVWWY\"\>"], \
"Output",
 CellChangeTimes->{3.460731737651245*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringJoin", "[", "S2", "]"}]], "Input",
 CellChangeTimes->{{3.460731740213729*^9, 3.460731740323103*^9}}],

Cell[BoxData["\<\"GDAHRZCWFBETQLBAYPISASTZLNRISPYYGBPVAQAQBSTGZAKMID\"\>"], \
"Output",
 CellChangeTimes->{3.460731740666851*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"def", " ", "needle", 
     RowBox[{"(", 
      RowBox[{"sequence", ",", "reference"}], ")"}], "\n", "gap"}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "5"}], "\[IndentingNewLine]", "\n", "#", " ", 
       "similarity", " ", "matrix", "\n", "#", "\n", "#", " ", "A", " ", "G", 
       " ", "C", " ", "T", "\n", 
       RowBox[{"#", " ", "A", " ", "10"}]}], "-", "1", "-", "3", "-", 
      RowBox[{"4", "\n", 
       RowBox[{"#", " ", "G"}]}], "-", 
      RowBox[{"1", " ", "7"}], "-", "5", "-", 
      RowBox[{"3", "\n", 
       RowBox[{"#", " ", "C"}]}], "-", "3", "-", 
      RowBox[{"5", " ", "9", " ", "0", "\n", 
       RowBox[{"#", " ", "T"}]}], "-", "4", "-", 
      RowBox[{"3", " ", "0", " ", "8", "\[IndentingNewLine]", "\n", "s"}]}], 
     "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"'", 
           RowBox[{"AA", "'"}]}], "=", 
          RowBox[{">", "10"}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"AG", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "1"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"AC", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "3"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"AT", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "4"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"GA", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "1"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"GG", "'"}]}], "=", 
          RowBox[{">", "7"}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"GC", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "5"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"GT", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "3"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"CA", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "3"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"CG", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "5"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"CC", "'"}]}], "=", 
          RowBox[{">", "9"}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"CT", "'"}]}], "=", 
          RowBox[{">", "0"}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"TA", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "4"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"TG", "'"}]}], "=", 
          RowBox[{">", 
           RowBox[{"-", "3"}]}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"TC", "'"}]}], "=", 
          RowBox[{">", "0"}]}], ",", 
         RowBox[{
          RowBox[{"'", 
           RowBox[{"TT", "'"}]}], "=", 
          RowBox[{">", "8"}]}]}], "}"}], "\[IndentingNewLine]", "\n", 
       "rows"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"reference", ".", "length"}], "+", 
        RowBox[{"1", "\n", "cols"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"sequence", ".", "length"}], "+", 
         RowBox[{"1", "\n", "a"}]}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"MDArray", ".", "new"}], 
          RowBox[{"(", 
           RowBox[{"rows", ",", "cols"}], ")"}], "\n", 
          RowBox[{
           RowBox[{
            RowBox[{"for", " ", "i", " ", "in", " ", "0"}], "..."}], 
           RowBox[{"(", "rows", ")"}], " ", "do", " ", 
           RowBox[{"a", "[", 
            RowBox[{"i", ",", "0"}], "]"}]}]}], "=", 
         RowBox[{
          RowBox[{"0", " ", "end", "\n", 
           RowBox[{
            RowBox[{
             RowBox[{"for", " ", "j", " ", "in", " ", "0"}], "..."}], 
            RowBox[{"(", "cols", ")"}], " ", "do", " ", 
            RowBox[{"a", "[", 
             RowBox[{"0", ",", "j"}], "]"}]}]}], "=", 
          RowBox[{
           RowBox[{"0", " ", "end", "\n", 
            RowBox[{
             RowBox[{"for", " ", "i", " ", "in", " ", "1"}], "..."}], 
            RowBox[{"(", "rows", ")"}], "\n", 
            RowBox[{
             RowBox[{"for", " ", "j", " ", "in", " ", "1"}], "..."}], 
            RowBox[{"(", "cols", ")"}], "\n", "choice1"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", 
               RowBox[{"j", "-", "1"}]}], "]"}], "+", 
             RowBox[{
              RowBox[{"s", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"reference", "[", 
                    RowBox[{"i", "-", "1"}], "]"}], ".", "chr"}], "+", 
                  RowBox[{
                   RowBox[{"sequence", "[", 
                    RowBox[{"j", "-", "1"}], "]"}], ".", "chr"}]}], ")"}], 
                ".", "upcase"}], "]"}], "\n", "choice2"}]}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "+", 
              RowBox[{"gap", "\n", "choice3"}]}], "=", 
             RowBox[{
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"j", "-", "1"}]}], "]"}], "+", 
               RowBox[{"gap", "\n", 
                RowBox[{"a", "[", 
                 RowBox[{"i", ",", "j"}], "]"}]}]}], "=", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"[", 
                  RowBox[{"choice1", ",", "choice2", ",", "choice3"}], "]"}], 
                 ".", "max"}], "\n", "end", "\n", "end", 
                "\[IndentingNewLine]", "\n", "ref"}], "=", 
               RowBox[{
                RowBox[{"''", "\[IndentingNewLine]", "seq"}], "=", 
                RowBox[{
                 RowBox[{"''", "\[IndentingNewLine]", "i"}], "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"reference", ".", "length"}], "\n", "j"}], "=", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"sequence", ".", "length"}], "\n", "while", " ", 
                    RowBox[{"(", 
                    RowBox[{"i", ">", 
                    RowBox[{"0", " ", "and", " ", "j"}], ">", "0"}], ")"}], 
                    "\n", "score"}], "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{"i", ",", "j"}], "]"}], "\n", "score_diag"}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", 
                    RowBox[{"j", "-", "1"}]}], "]"}], "\n", "score_up"}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{"i", ",", 
                    RowBox[{"j", "-", "1"}]}], "]"}], "\n", "score_left"}], 
                    "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "\n", "if", 
                    " ", 
                    RowBox[{"(", 
                    RowBox[{"score", "\[Equal]", 
                    RowBox[{"score_diag", "+", 
                    RowBox[{"s", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"reference", "[", 
                    RowBox[{"i", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{
                    RowBox[{"sequence", "[", 
                    RowBox[{"j", "-", "1"}], "]"}], ".", "chr"}]}], "]"}]}]}],
                     ")"}], "\n", "ref"}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"reference", "[", 
                    RowBox[{"i", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"ref", "\n", "seq"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"sequence", "[", 
                    RowBox[{"j", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"seq", "\n", "i"}]}], "-=", 
                    RowBox[{
                    RowBox[{"1", "\n", "j"}], "-=", 
                    RowBox[{"1", "\n", "elsif", " ", 
                    RowBox[{"(", 
                    RowBox[{"score", "\[Equal]", 
                    RowBox[{"score_left", "+", "gap"}]}], ")"}], "\n", 
                    "ref"}]}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"reference", "[", 
                    RowBox[{"i", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"ref", "\n", "seq"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"'", "-", "'", "+", 
                    RowBox[{"seq", "\n", "i"}]}], "-=", 
                    RowBox[{"1", "\n", "elsif", " ", 
                    RowBox[{"(", 
                    RowBox[{"score", "\[Equal]", 
                    RowBox[{"score_up", "+", "gap"}]}], ")"}], "\n", 
                    "ref"}]}], "=", 
                    RowBox[{
                    RowBox[{"'", "-", "'", "+", 
                    RowBox[{"ref", "\n", "seq"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"sequence", "[", 
                    RowBox[{"j", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"seq", "\n", "j"}]}], "-=", 
                    RowBox[{
                    "1", "\n", "end", "\n", "end", "\[IndentingNewLine]", 
                    "\n", "while", " ", 
                    RowBox[{"(", 
                    RowBox[{"i", ">", "0"}], ")"}], "\n", "ref"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"reference", "[", 
                    RowBox[{"i", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"ref", "\n", "seq"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"'", "-", "'", "+", 
                    RowBox[{"seq", "\n", "i"}]}], "-=", 
                    RowBox[{
                    "1", "\n", "end", "\[IndentingNewLine]", "\n", "while", 
                    " ", 
                    RowBox[{"(", 
                    RowBox[{"j", ">", "0"}], ")"}], "\n", "ref"}]}], "=", 
                    RowBox[{
                    RowBox[{"'", "-", "'", "+", 
                    RowBox[{"ref", "\n", "seq"}]}], "=", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"sequence", "[", 
                    RowBox[{"j", "-", "1"}], "]"}], ".", "chr"}], "+", 
                    RowBox[{"seq", "\n", "j"}]}], "-=", 
                    RowBox[{"1", "\n", 
                    RowBox[{"end", "\[IndentingNewLine]", "\n", "[", 
                    RowBox[{"seq", ",", "ref"}], "]"}], "\n", 
                    "end"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\
]}]}]}]}], "\[IndentingNewLine]", "*)"}], "\n"}]], "Input",
 CellChangeTimes->{{3.4607252014118276`*^9, 3.46072520805241*^9}}]
},
WindowSize->{1912, 1100},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 336, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[906, 32, 15891, 361, 692, "Input"],
Cell[16800, 395, 1267, 32, 30, "Output"],
Cell[18070, 429, 1093, 14, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19200, 448, 231, 4, 52, "Input"],
Cell[19434, 454, 285, 5, 30, "Output"],
Cell[19722, 461, 227, 4, 30, "Output"]
}, Open  ]],
Cell[19964, 468, 26, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[20015, 472, 201, 3, 52, "Input"],
Cell[20219, 477, 117, 1, 30, "Output"],
Cell[20339, 480, 117, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20493, 486, 271, 5, 31, "Input"],
Cell[20767, 493, 382, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21186, 508, 472, 10, 31, "Input"],
Cell[21661, 520, 2299, 35, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23997, 560, 749, 20, 31, "Input"],
Cell[24749, 582, 3120, 77, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27906, 664, 166, 3, 31, "Input"],
Cell[28075, 669, 150, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28262, 676, 162, 3, 31, "Input"],
Cell[28427, 681, 80, 1, 30, "Output"]
}, Open  ]],
Cell[28522, 685, 492, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[29039, 704, 221, 3, 31, "Input"],
Cell[29263, 709, 1643, 42, 60, "Output"]
}, Open  ]],
Cell[30921, 754, 3264, 54, 132, "Input"],
Cell[CellGroupData[{
Cell[34210, 812, 652, 16, 31, "Input"],
Cell[34865, 830, 13905, 234, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48807, 1069, 454, 10, 52, "Input"],
Cell[49264, 1081, 549, 9, 30, "Output"]
}, Open  ]],
Cell[49828, 1093, 235, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[50088, 1102, 716, 19, 52, "Input"],
Cell[50807, 1123, 96, 1, 30, "Output"],
Cell[50906, 1126, 8888, 136, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59831, 1267, 987, 25, 52, "Input"],
Cell[60821, 1294, 36430, 653, 468, "Output"]
}, Open  ]],
Cell[97266, 1950, 1039, 29, 31, "Input"],
Cell[CellGroupData[{
Cell[98330, 1983, 102, 1, 31, "Input"],
Cell[98435, 1986, 69521, 2309, 544, "Output"]
}, Open  ]],
Cell[167971, 4298, 343, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[168339, 4311, 376, 6, 31, "Input"],
Cell[168718, 4319, 286, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169041, 4328, 171, 3, 31, "Input"],
Cell[169215, 4333, 80, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169332, 4339, 313, 7, 31, "Input"],
Cell[169648, 4348, 845, 22, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170530, 4375, 64, 1, 31, "Input"],
Cell[170597, 4378, 129, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170763, 4385, 130, 2, 31, "Input"],
Cell[170896, 4389, 129, 2, 30, "Output"]
}, Open  ]],
Cell[171040, 4394, 11815, 303, 1392, "Input"]
}
]
*)

(* End of internal cache information *)
